CyberMycha Extra 2004 January/CyberMycha Extra 1-2004 (Poland) (Disc 2).bin/Pippi/gmtb.dir/00005_scoreRails.ls

Text File | 2001-09-12 | 576 b | 29 lines

property thisRail
global gmObject

on exitFrame me
  go(the frame)
end

on mouseDown me
  if inside(the mouseLoc, rect(32, 70, 757, 514)) then
    repeat with n = gmObject.railSprites[gmObject.railSprites.count] down to gmObject.railSprites[1]
      if rollover(sprite(n)) then
        if sprite(n).placed = 0 then
          thisRail = sprite(n)
          pickRail(thisRail)
          exit repeat
        end if
      end if
    end repeat
  end if
end

on mouseUp me
  if thisRail <> VOID then
    if thisRail.placed = 0 then
      dropRail(thisRail)
    end if
  end if
end